﻿Public Class frmListarSatelites

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Close()
    End Sub

    Private Sub frmListarSatelites_Activated(sender As Object, e As EventArgs) Handles Me.Activated
        ModuloGeneral.Centrar(Me.Panel1)
    End Sub

    Private Sub frmListarSatelites_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        With dgvSatelite
            .AutoGenerateColumns = False
            .AllowUserToAddRows = False
            .AllowUserToDeleteRows = False
            .Columns.Clear()

            .Columns.Add("Id", "Id")
            .Columns.Add("Satelite", "Satelite")
            .Columns.Add("Masa", "Masa")
            .Columns.Add("Temperatura", "Temperatura")
            .Columns.Add("DuracionD", "Duración Dia")
            .Columns.Add("Caract", "Características")

            .Columns(0).DataPropertyName = "Id"
            .Columns(0).Visible = False
            .Columns(0).Width = 10
            .Columns(1).DataPropertyName = "Nombre"
            .Columns(1).Visible = True
            .Columns(1).Width = 200
            .Columns(2).DataPropertyName = "Masa"
            .Columns(2).Visible = True
            .Columns(2).Width = 100
            .Columns(3).DataPropertyName = "temperaturaMedia"
            .Columns(3).Visible = True
            .Columns(3).Width = 100
            .Columns(4).DataPropertyName = "Duracion"
            .Columns(4).Visible = True
            .Columns(4).Width = 100
            .Columns(5).DataPropertyName = "caracteristicas"
            .Columns(5).Visible = True
            .Columns(5).Width = 400

            .DataSource = New BindingSource(objGestor.listarSatelite(), Nothing)
        End With
    End Sub

    Private Sub dgvListarEstrella_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvSatelite.CellContentClick

    End Sub

    Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint

    End Sub
End Class